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COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
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1* ABSTRACT 



CRA IS AN IOMOD THAT EXERCISES THE CRll OR CM11 CARD READER* IT READS 
A PRE-PHNCHED ALPHANUMERIC DECK FORMING A CHECKSUM FOR EACH CARD 
READ. THE CALCULATED CHECKSUM IS COMPARED AGAINST A KNOWN CKSUM 
AND ANY ERRORS REPORTED ON THE TTY. THE MODULE TESTS BOTH THE 

IMAGE AND ENCODED D ATA» 



2* REQUIREMENTS 

HARDWARES ONE CRll CARD READER WITH CONTROLLER 

ONE PRE-PUNCHgD ALPHANUMERIC DECK (80 CARDS) 
MAINDEC-89-D131-C FOR 80 COLUMN READERS 
MAINDEC-89-D2C1-C FOR 40 COLUMN CM11 READERS 

STORAGE:: CRA REQUIRES 5 

1. DECIMAL TORDSl 300 

2. OCTAL WORDS 2 0454 

3. OCTAL BYTES: 1130 

3» PASS DEFINITION 

ONE PASS OF THE CRA MODULE CONSISTS OF READING 80 80-COLUMN 
CARDS (6400 CHARACTERS) AT WHICH TIME THE INPUT HOPPER 
SHOULD BE EMPTY. 

4. EXECUTION TIME 



ONE PASS OF CRA RUNNING ALONE ON A PDPll/20 PROCESSOR TAKES 
APPROXIMATELY .4 MINUTES (80 CARD DEC*) 

5. CONFIGURATION REQUIREMENTS 
DEFAULT PARAMETERS: 

DKVADR: 177160, VECTOR: 230, HRlS 6, OEVCNT: 1 

REQUIRED PARAMETERS: 

NONE 

6. DEVICE/OPTION SET-UP 



A* POtfER UP THE READER 

Hm LOAD THE PROPER ALPHA DECT 

C. READY THE READER 
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SEQ 0003 



7« WDULE OPERATION 

TEST SEQUENCES 

A. SET OP VECTORS AND INITIALIZE MODULE ¥ARIABLES 
8* IF ON-LTNE GO TO C ELSE MAIT FOR READ? 
C« READ A CARD - ENABLE INTERRUPT 

D. INTERRUPT SERVICES 

1* CHECK FOR N3N-DATA ERRORS (TIMING^ ETC* ) 
2* COUNT COLUMN 

3. FORM CHECKSUMS (DIRECT AND ENCODED) 

4. IF 80 COLUMNS READS CHECK DATA - REPORT AMY ERRORS 

E. IF HOPPER NOT EMPTY COUNT A CARD AND GO TO B. 

F. AT HOPPER EMPTY (OFF-LINE) AND 80 CARDS READ* REPORT 
END OF PASS AND START AT A. ELSE REPORT ERROR AND 
GO TO A* 

OTHER ERROR CONDITIONS TESTED FOR AMD REPORTED S 

A* READER NOT READY ( "CHECK* CONDITIONS) 
8* READING DATA DIDN'T CLEAR COLUMN DONE 
C. TIMING 

D« UNEXPECTED OFF-LINE (EG: TOO FEW TEST CARDS) 

IF OFF-LINE CONDITION IS NOT CORRECTED MODULE WILL BE DROPPED. 

8. OPERATION OPTIONS 

NONE 

9* NON-STANDARD PRINTOUTS 

NONE : ALL PRINTOUTS HAVE THE STANDARD FORMAT. 



i 
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SSQ, BIN 

IDMOD <CRAF >, 

MODHLE 140000, CR 

.TITLE CRAP DEC/ 

DDXCOtf VERSION 



» ****** 

begin: 

MODNAM: 
XFLAG: 

aoor: 

vectors 

BRl: 

SRl: 
SR2: 
SR3: 
SR4 S 
< ****** 

STA 



**yii***n**, 



1 77160, 230,6,, ,80. ,15 
AF ,177160,2^0, 6, tfc P0., 15 
Xll SYSTEM EXERCISER MODULE 
6 23-MAY-78 



*************************************************** 




•ASCII /CR AF / 
• BYTE OPEN 
177160+0 
23Q+0 

.BYTE PRTY6+0 
. JYTE PRTY+0 

OPEN 
OPEN 
□PE1 
OPEN 

r** *************** 

140000 
START 



MODULE NAME. 

;USED TO KEEP TRACK OP WBUPF USAGE 
;1ST DEVICE ADDR. 
;1ST DEVICE VECTOR. 
;1ST BR LEVEL. 
;2ND BR LEVEL. 
;OEVICE INDICATOR 1. 
;SWITCH REGISTER 1 
JSWITCH REGISTER 2 
;SWITCH REGISTER 3 
;SWITCH REGISTER 4 
********************************************** 

iWi ADDR. 
J MODULE STACK POINTER. 

JPASS COUNTER. 

>LOC TO SAVE TOTAL SOFT ERRORS 
;LOC TO SAVF TOTAL HARD ERRORS 
;LOC TO SAVE SOFT ERRORS PER PASS 
;LOC TO SAVE HARD ERRORS PER PASS 
;# OF SYS ERRORS ACCUMULATED 
;HOLDS RANDOM * WHEN RAND MACRO IS CALLED 
} RESERVED FOR MONITOR USE 

nmm iz mm m 

JLOC TO SAVE RO. 
;LOC TO SAVE Rl. 
;LQC TO SAVE R2. 
;LOC TO SAVE R3. 
7LOC TO SAVE R4. 
;LOC TO SAVE R5. 
;LOC TO SAVE R6. 
; ADDR OF CURRENT CSP. 
;ADDR OF GOOD DATA, OR 
J CONTENTS OF CSR. 
} ADDR OF BAD DATA , OR 
;STATUS REG CONTENTS. 
JTYPE OF ERROR 
; EXPECTED DATA. 
; ACTUAL DATA. 

; RESTART ADDRESS AFTER END OF PASS 
; WORDS TO MEMORY PER ITERATION 
; WORDS FROM MEMORY PER ITERATION 
;ff OF INTERRUPTS PER ITERATION 
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198 
199 
200 

m 

203 
204 
205 
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0122* 000015 
000040 
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IDNUM: 15 

• REPT SPSIZ 
. NLIST 
.WORD 
.LIST 
• ENDR 

MO DSP: 

•A******************** 



; MODULE IDENTIFICATION NUMBER= 15 
; MODULE STACK STARTS HERE. 



************ * **************** ***ft**ft**»*»ftft ft ** ftftft * 



♦ 
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SSo Uo 



243 

Hi 

2 46 000424- 
247 

248 000432* 

25? 000436' 

251 000442* 

252 000450* 



255 000454* 

258 000470* 

259 000476* 

260 000502- 

261 



000120 177662 

000121 177660 



000604 

000400 000610 



06 
001365 
004767 

104405 

104410 

005267 
012777 
104400 



105777 
100011 

mm 

005267 
000002 



000000- 000000 



000000* 
000000' 

000400 000512 
000476 
000442 

000000' 000000 

000000' 

000446 

000101 000452 
000000' 



mm mm 



START: 
RESTRT; 



mov 

MOV 



NUCARD : 
NUCAR1 : 

IS: 



go: 
G01: 



'inter: 



£B0.,WDTO 



MOV 
TST 
MOV 

38? 

MOV V 

MOV #tnic.t.i 

MOVB BR1,(R0) 



R0,CRS 

(r8>* 

gO/CRBl 
L3«B2 



U/UKOZ 

ECTOR,R0 

INTER, (RO)* 



CLR CRDCNT 
BME 

BR NUCARl 

ENDTTS, BEGIN 

CLR COLUMN 

CLR SHM1 

CLR SUM2 

MOV #177 



;8Q WORDS TO MEM FROM READER 
?81 INTERRUPTS PER ITERATION 

; GET DEVICE ADDRESS 
> LOAD DEVICE ADDRESS 

; LOAO DATA 1 ADDRESS 

; 

> 

i 

I 

} ZERO CARD COUNTER 



LOAD DATA 2 ADDRESS 
GET DEVICE VECTOR 
POINT TO SERVICE ROnTINE 
GET PRIORITY 

ZERO CARD CO 
READER ON-LINE 
YES, BEGIN THE 
FIRST PASS ? 



LOG ERROR YET 



; NO* DON'T LOG ERROR _ . 
> o |p» LOAD ERROR INFORMATION 

***\***l**'*$22§** ********* ******* 



******** 



*********** 



777, CLR 

BREAKS, BEGIN 
BREAKS/ BEGIN 
III g§"8, 9 CRS 

DEC CLK 
BNE 
JSR 



} S IGNAL END OF ITERATION. 

; MONITOR SHALL TEST END OF PASS 

; ZERO COLUMN COUNTER 

I ZERO IMAGE RUNNING SUM 

; ZERO ENCODED RUNNING SUM 

; SET CLOCK COUNTER 



JSI 



7, ERSUB 
********** 



********** 

HRDERS,HEGIN,NULL 

• ******************* 

ENDS, BEGIN 

INC CRDCNT 
MOV #101,»CRS 
EX ITS ,BFG IN 



} 

\ 

; 

I 



TEMPORARY RETURN TO MONITOR..-. 
THEN CONTINUE AT NEXT INSTRUCTION. 



READY ? 
YES/ CONTINUE 
NO/ WAIT SOME MORE 



YES/ GO WAIT 

NO* LOAD ERROR INFORMATION 
*************************************** 

? READER STILL NOT READY ... BYE 
**************************************** 



DROP THE MODULE 
COUNT A CARD 

ENABLE INTERUPT AND READ 

;EXTT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



INTERUPT SERVICE 
TSTB 0CRS 
BPL IS 
ADD 

ADD 
INC 
RTI 



8CRBI/SUM1 
&CR82/SUM2 
COLUMN 



COLUMN READY TO BE READ ? 
NO* FIND OUT WHY 
ADD IMAGE TO RUNNING SUM 
ADD ENCODED TO RUNNING SUM 

COUNT A COLUMN 

GO ON TO OTHER THINGS 
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000612' 104405 



000167 
032767 



001410 
012767 



mm- 

000632* 
00063 4' 



000642* 104406 

000167 
032767 



001007 
005067 

104405 

000167 
' 022767 

: mm 



000670' 

000676- 

000702 

mm 



000720- 104405 



000356 
000100 


000404 


IS: 


oooooo- 


000524' 




177352 




WHY 


040000 


177342 




002000 


177332 




000400 


177322 




000120 


000320 


is: 


000050 


000310 




000011 


177274 




oooooo- 


oooooo 




mm 


177250 


2S: 


000002 


177244 




000000* 


oooooo 




177470 
000400 


177220 


3s: 


177216 






oooooo- 


oooooo 




177442 
000120 


000200 


4S: 


000006 


177166 




000000* 


oooooo 




177412 




/ 



JSR 
BTC 



R7/ERSU8 
#BIT6r»CRS 



|lRQ$z BEGIN/ WHY 



TST 
BM I 
BIT 
BNE 
BIT 
BNE 
BIT 
BEQ 
BR 



tftlTIO, ACSR 
NUCARD 

fBlT8/ACSR 
UCARD 



CMP 
BEQ 
CMP 
BEQ 
MOV 
. ***** 



JMP 
BIT 
3FQ 
MOV 

.«**** 

SOFERS 

• ***** 

JMP 
BIT 
BNE 
CLR 

• ***** 

HRDERS 
****** 

JMP 

CMP 
BFQ 
MOV 
****** 

HRDERS 

• *** - 

JMP 



#80. /COLUMN 
CHECK 

|4J. /COLUMN 

|ll c ERRTYP 

*************** 

/BEGIN/ NULL 

*************** 

NUCARD 
|BIT11/ACSR 

JUI85I****** 

,BEGIN/NULL 
*************** 

NUCARD 
|BIT8/ACSR 

ERRTYP 

r«*** ********** 

BEGIN, NULL 

r** *********** 

NUCARD 
#80., CRDCNT 
CHECK 
#6/ ERRTYP 

************** 

/BEGIN, NULL 

************** 

IF HO 

NUCARD 



SAVE ADDR AND CONTENTS OF CONTROL RFGS. 
DISABLE INTERUPT 



QUEUE UP TO CONTINUE AT WHY AND RTI 



ERROR ? 

YES, GO CHECK IT OUT 
CARD DONE ? 

YES/ GO CHECK CHECKSUMS 
TRANSITION TO ON-LINE ? 



YES, GO GET A CARD 
READER READY ?_ 



YES 

NO, 



GO GET ANOTHER CARD 
GO REPORT ERROR 



80 COLUMNS CHECKED ? 
YES/ GO CHECK CHECKSUMS 
40 COLUMN CARD ? 
, YFS/ GET SECOND CARD 
;DONE OCCURED BUT SHOULD NOT HAVE 
******************************************* 

;CARD DONE SET BUT NOT 40 OR 80 COLUMNS READ 

a***************************************** 

; GO TRY ANOTHER CARD 
; TIMING ERROR ? 
; NO, LOOK FOR OTHERS 

**iXI*i*§*§**S§*f(*3* ******* **************** 
*********************** 

} GO TRY ANOTHER CARD 
; ON-LINE ? 
; NO, GO REPORT ERROR 
J UNKNOWN ERROR 
******************************************* 



********* 



*********************** * 

; go try another card 

; required number of cards read ? 
} yfs, go check data 
[off Cine code 

ft****************************** ************ 

jOFP-LINE EXAMINE READER FOR "CHECK* CONDITIONS 

******************************************* 

PPER EMPTY, PROBABLY TOO FEW TEST CARDS (80 REQUIRED) 
; GO SET UP FOR NEXT CARD 



000732" 026767 
000740" 001416 
000742" 012767 



000742" 012767 001104" 177132 

mm- mm imiv mm 

000764" 016767 000126 177116 
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000160 000144 CHECK: 



000116 000102 IS: 

001106" 177066 
000066 177064 

mnr mm 

000000" 



000400 177032 

000120 000030 
177256 

000030 177004 

000022 177000 



2$: 



&RSUB: 



cksumi: 

CKSUM2: 

crdcnt: 

column: 

clk: 

sumi: 

sum*: 

crs: 



SUMI, CKSUMI 
IS 

»CKSUM1,SBA0R 
CKSUMI, ASB 



CMP 
BEQ 
MOV 

MOV - _ 

MOV #SUM1,HASADR 
MOV SUMI ,AWAS 

******************** 
UATERS, BEGIN 

.******************* 



IMAGE CHECKSUM CORRECT 
■•" a CHECK THE ENCODED 



CMP 
BEti 
MOV 
MOV 



SUM2,CKSUM2 

ffnKSUM2 rSBADR 
CKSUM2, ASB 
tfSUM2f W AS ADR 



; NO, LOAD ADDRESS OF GOOD CHECKSUM 
; LOAD GOOD CHECKSUM 
; LOAD ADDRESS OF BAD CHECKSUM 
; LOAD THE CALCULATED CHECKSUM 
************************************** 

*****I**8* 83** ************* *********** 

IMAGE CHECKSUM INCORRECT 



RNgODED CHECKSUM R CORRECT A ? os 

N5 # 'LS2D C AiSSpsi R Op°GdaS A CHlcKSUM 
LOAD GOOD CHECKSUM 



MOV #SUM2f W AS ADR ; LOAD ADDRESS OF BAD CHECKSUM 



i 



DATER$,REGIN 
• ************ 



********* 



**4***^*1*§9* ******** 



****************** 



BTT 
BEQ 
CMP 
BNE 
JMP 



|BIT8,ACSR 

S BO., CRDCNT 
HY 
NUCARO 



ENCODED CHECKSUM INCORRECT 
READY FOR NEXT CARD ? 
YES, GET ANOTHER CARD 
REQUIRED NUMBER OF CARDS READ ? 
NO, MUST BE AN ERROR 
GO WAIT FOR READY 



MOV CRS,CSRA 

R?l |^RS,ACSR 



; SAVE 
> RETlff 



i SAVE ADDRESS OF CONTROL STATUS REG. 
CONTENTS OF CONTROL STATUS REG. 



67443 
14173 



DESIRED TOTAL FOR ALPHA-NUM IMAGE DATA 

DESIRED TOTAL FOR ENCODED DATA 

CARD COUNTER 

CARD COLUMN COUNTER 

CLOCK COUNTER 

RUNNING TOTAL FOR IMAGE DATA 
RUNNING TOTAL FOR ENCODED DATA 
CARD READER STATUS REGISTER 



; CARD READER DATA 1 REGISTER 
; CARD READER DATA 2 REGISTER 
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ACSR 000102R 188# 267 269 271 273 286 293 32 

ADDR 000006R 154* 209 

ir» m »»* 

AWAS 000110R 193* 314* 324* 

BEGIN 000000R 151ff 227 231 238 239 246 248 25 

bito = oooooi ihtn 326 

BIT1 = 000002 206S 

iwn i mm mi m 

BIT12 = 010000 206ff 

BIT13 = 020000 206f 

BIT14 = 040000 206t 269 

BIT15 = 100000 206* 
BIT? = 000004 

BTT3 = ooooig 

BIT4 = 000020 
BIT5 = 000040 



BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 



DATA$= 104412 
000732R 

* mm in i\i in 



BIT9 = 001000 206* 

8RE AKS= 104407 206* 238 239 

BR1 000012R 156S 217 

BR2 ' 
BTODS 

CDATAS: - 

CHECK 000732R 

CKSUMf " " 
CKSUM 

column odiii2R 

CONFIG 000056R 

ssii mim ... .... ..... 

CRDCNT 001110R 219* 250* 300 331 341* 

CRS 001122R 210* 220 240 251* 255 263* 335 336 

C§RA_ O^O^R 

104404 
000014 

i»i t5 s mt m 

ERRTYP 000106R 191* 225 

ERSUB 001066R 224 244 262 335* 

EXITS = 104400 206f 252 

GETPAS= 104415 206$ 

GO 000436R 241 2508 

GOl 00Q442R 251* 2R0 

GWBUF$= 104414 206# 

HRDCNT 000044R 171* 

HRDERS= 104405 2Q6# 227 

HRDPAS 000050R 173$ 

ICOMT 000036R 168* 



DATCKS 

D ATERS= 104404 206* 316 

DVIDl 000014R "~" 




281* 288* 
"62 
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I COW NT 

\w 

MAP22S= 
MODMA" 
MODSP 
HSGHS = 
MSGSS = 



000040k 
00O122R 
000035R 

mm 

104416 
000000R 

mm* 

104402 

O0OOO0 
000000 




026R 
-_116R 
001120R 
000062P 



2041 

227 
159 
190 

ill 

206 



311* 
290 



257* 
258* 



3M 


28§ 
233i 


292 


299 


307 


246 


283 


290 


297 


304 


160 
192 


m 


162 
195 


179 
196 





182 



309 
319 



313 
323 



314 
324 



3448 
345# 
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SYR2 

SYR3 

SVR4 

SVR5 

SYR6 

SYSCHT 

TRPDFD= 

VECTOR 

WASADR 

5J0FR 

WDTO 

SHY 

XPL AG 



000066R 
000070R 

amn 

000076R 

888811" 

0Q0010R 
00010«R 
000116R 

oooti"- 
ooo5 l 



24R 
0005R 



I8ie 

182S 

mi 

185# 

Uif 

155f 

1899 
I96ff 

\IV 

153» 



MACVtl 10A(1052) 12-OCT- 
COSS REFERENCE TABLE — 



215 
313* 



78 16:25 PAGE 
USER SYMBOLS 



000000 
001130 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOB ALS GENERATED: 

XCRAS-0,XCRAF0/SOL/CRP:SYM=DDXCOM,XCRAF0 
RUN-TIME: 11.2 SECONDS 
RUM-TIME RATIO: 10/3=3.3 
CORE USED: 7K (13 PAGES) 



a 'A 



111 



DECOD DEPO0 SUBMISSIONS 



FOR RELEASE ENG. USE 

D new □change Q DELETE 



r 



JVJD 



LIBRARY 



PRODUCT NUM3ER 



j REV 



r>ATCH 



XX 



CXCRA 



ECO 
'7ALLV 



PRODUCT DATE 



OD M.Vi.M YV 
2$ | .WVRj 79P1 OBSOLETE 



STATUS 



distribution 
x(g[ 



1ST COPY 
RIGHT YEAR 



1973 



LAS f CUfY- 
RIGHT YEAR 



1979 



TITLE CXCRAF1 CR11 MODULE ^ 

author Dm BUTENHOF | ' MAI ' NT 6Eeyffl p SUPT GRP [ maintainor p ^ BUTENHQF \ suamTTi if. E 'm^MEOF 



CK DESCRIPTION 



PRODUCT COMPONENTS fvigS 



PRODUCT NO. 



REV CK DESCRIPTION 



PRODUCT NO. 



REV 



DOCUMENT 



INDEX 



LISTING 



SOURCE MEDIA 



OBJECT MEDIA 



TEST MEDIA 



X 



AF-E694F-M1 




PRODUCTS OBSOLETED (other than previous version) f- 



LIBRARY 



PRODUCT NUMBER 




M D 



PRODUCT CHARACTERISTICS ft 

PROCE SSOpT S PROD.j c T OPERATES VM TH iEnt^r a'.l aopt.cabl? 2 dlgi! codes representing th-e Processor the product operates with. Sa* saoa-ata instructions J 



03 


04 


05 


10 


20 


21 


34 


35 


40 


45 


50 55 


60 


70 
























1 




OPERATIONAL CODES (Enter ad aoolicablw 2 d«"g«t cod** mat dsscriba tha product. See separata instructions.) 


02 


03 | 04 


06 


50 












1 



































ACT/APT/XXOP 



INFORMATION FIELD 



EXT 



ACT 

SEQ NUMBER 



ACT'XXDP 
COMPATIBLE? 

r> 



APT COMPATIBLE? 

"""I y | In 



1ST PASS RUN TIME 

] SECONDS 



SUBSEQUENT 
I PASS R UN TIME 
1 SECONDS 



pa^^ ngpn/D = PQ INFORMATION ^gSWE 1 ^^ 



' PROBLEM REPORTS CLOSED. 



{MULTIMEDIA AFFECTED? Q YES 1X3 NO| 



DEVICE AFFECTED DEC/Xll 



1 

] KIT NUMBERS 

l 
» 


ZJ129-RZ, 


FR 


ZJ239-RB, 


RY 


ZJ240-RB, 


RE 


ZJ240-FR 


ZJ215-RY, 


RZ 


ZJ239-RZ, 


PB 


ZJ240-RZ , 


PB 


ZJ239-FR 



PROBLEM: 



MODULE DOES NOT WORK PROPERLY UNDER "NEW" DEC/Xll MONITOR. WILL GET 
HARD ERRORS (WRONG # OF CARDS) AFTER RELOCATION, DUE TO MONITOR 
ALLOWING PARTIAL PASS PRIOR TO RELOCATION, 



SOLUTION: 



INSTALL THE FOLLOWING PATCH 



DEPO PATCH AREA 



;hange log 



FROM 



TO 



CHANGE LOC 



FROM 



TO 




120 


1 


1275 


1277 


1671 


1673 


177520 


177524 


177470 


177474 


177442 


177446 


1-77412. 


177416 


1404 


172,6 



'a.S'-APF--^ 



FIELD SERVICE 



DATE. 



SUPPORT ENGINEER 



DATE: 



WAIVE RING MANAGER 



DATE. 



CHARGE DECO/DEPO TO 
DISCRETE PROJECT NUMBER 



COORDINATION NO. -v r . 

3c U 



